object MainForm: TMainForm Left = 284 Top = 128 BorderIcons = [] BorderStyle = bsNone Caption = 'Remote Control CD Player' ClientHeight = 263 ClientWidth = 148 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop KeyPreview = True PopupMenu = MediaPlayerPopup ShowHint = True OnActivate = FormActivate OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Rollup: TgbRollup Left = 1 Top = 1 Width = 146 Height = 123 RollAmount = 0 DropHeight = 123 Moveable = False Caption = ' RCCD' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ShowHelpButton = True IsForm = True OnRollUp = RollChange OnRollDown = RollChange OnRollClose = RollupRollClose OnHelpClick = RollupHelpClick OnCaptionMouseDown = RollupCaptionMouseDown OnCaptionDblClick = RollupCaptionDblClick CaptionShowHint = True object Panel1: TPanel Left = 1 Top = 121 Width = 144 Height = 1 Align = alBottom BevelOuter = bvNone TabOrder = 1 end object pnlToolbar: TPanel Left = 1 Top = 17 Width = 144 Height = 55 Align = alTop BevelInner = bvLowered TabOrder = 2 object imgBackgroundDefault: TImage Tag = 1 Left = 2 Top = 2 Width = 140 Height = 51 Align = alClient Picture.Data = {} Visible = False end object imgBackground: TImage Tag = 1 Left = 2 Top = 2 Width = 140 Height = 51 Align = alClient end object btnVolume: TSpeedButton Left = 79 Top = 2 Width = 25 Height = 25 Enabled = False Flat = True Glyph.Data = { EE000000424DEE000000000000007600000028000000100000000F0000000100 0400000000007800000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAA0303AA AAAAAAAAA030883AAA3AAAAA0333FF3AA3AAAAA03B08FF3A3AAAA003BF08FF3A AAAA033BFB00FF3AAAAA3B8FBF030F3A33333B8BFB080F3AAAAA3F8FBF00FF3A AAAAA33BFB08FF3A3AAAAAA3BF08FF3AA3AAAAAA3B33AF3AAA3AAAAAA3B0AAAA AAAAAAAAAA3303AAAAAAAAAAAAA00AAAAAAA} Visible = False OnClick = btnVolumeClick end object btnPlay: TSpeedButton Tag = 1 Left = 4 Top = 2 Width = 25 Height = 25 Hint = 'Play' Flat = True Glyph.Data = { B6010000424DB601000000000000760000002800000022000000100000000100 0400000000004001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333000000333333333333333333333333333333333300 0000333F3333333333333333F3333333333333000000338AFF33333333333338 3FF33333333333000000338AAAFF333333333338333FF333333333000000338A AAAAFF333333333833333FF3333333000000338AAAAAAAFF333333383333333F F33333000000338AAAAAAAAAFF333338333333333FF333000000338AAAAAAAAA 88F3333833333333388F33000000338AAAAAAA88333333383333333883333300 0000338AAAAA88333333333833333883333333000000338AAA88333333333338 33388333333333000000338A8833333333333338388333333333330000003388 3333333333333338833333333333330000003333333333333333333333333333 3333330000003333333333333333333333333333333333000000} NumGlyphs = 2 OnClick = btnPlayClick end object btnPause: TSpeedButton Tag = 1 Left = 29 Top = 2 Width = 25 Height = 25 Hint = 'Pause' Flat = True Glyph.Data = { 76010000424D760100000000000076000000280000001A000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333300000033333333333333333333333333000000338FFF38FFF3 3338FF338FF333000000338BBF38BBF333383F3383F333000000338BBF38BBF3 33383F3383F333000000338BBF38BBF333383F3383F333000000338BBF38BBF3 33383F3383F333000000338BBF38BBF333383F3383F333000000338BBF38BBF3 33383F3383F333000000338BBF38BBF333383F3383F333000000338BBF38BBF3 33383F3383F333000000338BBF38BBF333383F3383F333000000338BBF38BBF3 33383F3383F33300000033888F3888F333388F3388F333000000333333333333 3333333333333300000033333333333333333333333333000000} NumGlyphs = 2 OnClick = btnPauseClick end object btnStop: TSpeedButton Tag = 1 Left = 54 Top = 2 Width = 25 Height = 25 Hint = 'Stop' Flat = True Glyph.Data = { B6010000424DB601000000000000760000002800000022000000100000000100 0400000000004001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333000000333333333333333333333333333333333300 00003333333333333333333333333333333333000000333FFFFFFFFFFFF33333 FFFFFFFFFFFF3300000033899999999999F3333833333333333F330000003389 9999999999F3333833333333333F3300000033899999999999F3333833333333 333F3300000033899999999999F3333833333333333F33000000338999999999 99F3333833333333333F3300000033899999999999F3333833333333333F3300 000033899999999999F3333833333333333F3300000033899999999999F33338 33333333333F3300000033888888888888333338888888888883330000003333 3333333333333333333333333333330000003333333333333333333333333333 3333330000003333333333333333333333333333333333000000} NumGlyphs = 2 OnClick = btnStopClick end object btnBack: TSpeedButton Tag = 1 Left = 4 Top = 27 Width = 25 Height = 25 Hint = 'Previous Track' Flat = True Glyph.Data = { B6010000424DB601000000000000760000002800000028000000100000000100 0400000000004001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333338FF33333333333FF33338FF33333333333FF33338CF333333333FFCF33 3383F333333333FF3F33338CF3333333FFCCCF333383F3333333FF333F33338C F33333FFCCCCCF333383F33333FF33333F33338CF333FFCCCCCCCF333383F333 FF3333333F33338CF33FCCCCCCCCCF333383F33F333333333F33338CF388CCCC CCCCCF333383F388333333333F33338CF33388CCCCCCCF333383F33388333333 3F33338CF3333388CCCCCF333383F333338833333F33338CF333333388CCCF33 3383F333333388333F33338CF33333333388CF333383F333333333883F333388 F333333333338F333388F333333333338F333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 OnClick = btnBackClick end object btnSkipBack: TSpeedButton Tag = 1 Left = 29 Top = 27 Width = 25 Height = 25 Hint = 'Skip Back' Flat = True Glyph.Data = { F6010000424DF60100000000000076000000280000002A000000100000000100 0400000000008001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333330000003333333333333333333333333333 333333333333330000003333333333333FF3FFF333333333333333FF3FFF3300 000033333333333FF2F382F3333333333333FF3F383F33000000333333333FF2 22F382F33333333333FF333F383F330000003333333FF22222F382F333333333 FF33333F383F3300000033333FF2222222F382F3333333FF3333333F383F3300 00003333F222222222F382F333333F333333333F383F33000000333882222222 22F382F3333388333333333F383F3300000033333882222222F382F333333388 3333333F383F3300000033333338822222F382F3333333338833333F383F3300 000033333333388222F382F3333333333388333F383F33000000333333333338 82F382F3333333333333883F383F3300000033333333333338F3888333333333 3333338F38883300000033333333333333333333333333333333333333333300 0000333333333333333333333333333333333333333333000000} NumGlyphs = 2 OnClick = btnSkipBackClick end object btnSkipForward: TSpeedButton Tag = 1 Left = 54 Top = 27 Width = 25 Height = 25 Hint = 'Skip Forward' Flat = True Glyph.Data = { F6010000424DF60100000000000076000000280000002A000000100000000100 0400000000008001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333330000003333333333333333333333333333 33333333333333000000338FF3FF3333333333333338FF3FF333333333333300 00003382F382FF333333333333383F383FF333333333330000003382F38222FF 3333333333383F38333FF3333333330000003382F3822222FF33333333383F38 33333FF33333330000003382F382222222FF333333383F383333333FF3333300 00003382F38222222222FF3333383F38333333333FF3330000003382F3822222 222288F333383F3833333333388F330000003382F38222222288333333383F38 333333388333330000003382F38222228833333333383F383333388333333300 00003382F38222883333333333383F38333883333333330000003382F3828833 3333333333383F38388333333333330000003388F38833333333333333388F38 8333333333333300000033333333333333333333333333333333333333333300 0000333333333333333333333333333333333333333333000000} NumGlyphs = 2 OnClick = btnSkipForwardClick end object btnForward: TSpeedButton Tag = 1 Left = 79 Top = 27 Width = 25 Height = 25 Hint = 'Next Track' Flat = True Glyph.Data = { F6010000424DF60100000000000076000000280000002A000000100000000100 0400000000008001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333330000003333333333333333333333333333 33333333333333000000333F3333333333338FF33333F3333333333338FF3300 0000338CFF33333333338CF333383FF333333333383F33000000338CCCFF3333 33338CF33338333FF3333333383F33000000338CCCCCFF3333338CF333383333 3FF33333383F33000000338CCCCCCCFF33338CF333383333333FF333383F3300 0000338CCCCCCCCCFF338CF33338333333333FF3383F33000000338CCCCCCCCC 88F38CF3333833333333388F383F33000000338CCCCCCC8833338CF333383333 33388333383F33000000338CCCCC883333338CF33338333338833333383F3300 0000338CCC88333333338CF33338333883333333383F33000000338C88333333 33338CF33338388333333333383F33000000338833333333333388F333388333 33333333388F3300000033333333333333333333333333333333333333333300 0000333333333333333333333333333333333333333333000000} NumGlyphs = 2 OnClick = btnForwardClick end object btnClose: TSpeedButton Left = 114 Top = 27 Width = 25 Height = 25 Hint = 'Close' Flat = True Glyph.Data = { B6010000424DB601000000000000760000002800000026000000100000000100 0400000000004001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333300333333333833333333333333333383333333 3300333333338CF333333333333333383F333333330033333338CCCF33333333 3333338333F3333333003333338CCCCCF333333333333833333F333333003333 38CCCCCCCF333333333383333333F333330033338CCCCCCCCCF3333333383333 33333F3333003338CCCCCCCCCCCF333333833333333333F33300338CCCCCCCCC CCCCF333383333333333333F330033FFFFFFFFFFFFFFF3333FFFFFFFFFFFFFFF 3300333333333333333333333333333333333333330033888888888888888333 38888888888888883300338CCCCCCCCCCCCCF333383333333333333F330033FF FFFFFFFFFFFFF3333FFFFFFFFFFFFFFF33003333333333333333333333333333 3333333333003333333333333333333333333333333333333300} NumGlyphs = 2 OnClick = btnCloseClick end object btnEject: TSpeedButton Left = 114 Top = 3 Width = 25 Height = 25 Hint = 'Eject' Flat = True Glyph.Data = { B6010000424DB601000000000000760000002800000026000000100000000100 0400000000004001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333300333333333333333333333333333333333333 330033FFFFFFFFFFFFFFF3333FFFFFFFFFFFFFFF3300338CCCCCCCCCCCCCF333 383333333333333F330033888888888888888333388888888888888833003333 33333333333333333333333333333333330033FFFFFFFFFFFFFFF3333FFFFFFF FFFFFFFF3300338CCCCCCCCCCCCCF333383333333333333F33003338CCCCCCCC CCCF333333833333333333F3330033338CCCCCCCCCF333333338333333333F33 3300333338CCCCCCCF333333333383333333F33333003333338CCCCCF3333333 33333833333F3333330033333338CCCF333333333333338333F3333333003333 33338CF333333333333333383F33333333003333333338333333333333333333 8333333333003333333333333333333333333333333333333300} NumGlyphs = 2 OnClick = btnEjectClick end object Bevel1: TBevel Left = 108 Top = 1 Width = 2 Height = 52 Shape = bsLeftLine end end object pnlTrackInfo: TStatusBar Left = 1 Top = 102 Width = 144 Height = 19 Align = alClient Panels = < item Alignment = taCenter Text = '[-- of --]' Width = 50 end item Alignment = taCenter Text = '00:00' Width = 50 end item Width = 50 end> SimplePanel = False SizeGrip = False end object pnlTrackBar: TPanel Left = 1 Top = 72 Width = 144 Height = 30 Align = alTop BevelOuter = bvNone TabOrder = 4 object tbTrackSelectBar: TgbTrackBar Left = 0 Top = 0 Width = 144 Height = 30 Hint = 'Track Position' LineSize = 10 Max = 1000 Orientation = trHorizontal PageSize = 20 PopupMenu = MediaPlayerPopup Frequency = 50 Position = 0 SelEnd = 0 SelStart = 0 TabOrder = 0 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = tbTrackSelectBarChange OnMouseDown = tbTrackSelectBarMouseDown OnMouseUp = tbTrackSelectBarMouseUp end end end object CDConsole: TMediaPlayer Left = 108 Top = 164 Width = 29 Height = 27 VisibleButtons = [btPlay] AutoRewind = False DeviceType = dtCDAudio Shareable = True ParentShowHint = False ShowHint = False TabOrder = 1 end object TrackInfoTimer: TTimer Enabled = False OnTimer = TrackInfoTimerTimer Left = 24 Top = 136 end object MediaPlayerPopup: TPopupMenu Left = 52 Top = 136 object TrackMenu: TMenuItem Caption = 'Trac&k' end object mnuEditPlayList: TMenuItem Caption = 'E&dit Play List' OnClick = mnuEditPlayListClick end object mnuCDDBDownload: TMenuItem Caption = 'CDDB Reload' OnClick = mnuCDDBDownloadClick end object Volume1: TMenuItem Caption = '&Volume' Enabled = False Visible = False OnClick = btnVolumeClick end object N5: TMenuItem Caption = '-' end object AutoRepeat: TMenuItem Tag = 3 Caption = 'A&uto Repeat' OnClick = AutoRepeatClick end object RandomPlay: TMenuItem Tag = 3 Caption = 'Ra&ndom Play' OnClick = RandomPlayClick end object N3: TMenuItem Caption = '-' end object PlayPause: TMenuItem Tag = 2 Caption = '&Play/Pause' OnClick = PlayPauseClick end object Next1: TMenuItem Tag = 2 Caption = '&Forward' OnClick = Next1Click end object Previous1: TMenuItem Tag = 2 Caption = '&Back' OnClick = Previous1Click end object SkipForwards1: TMenuItem Tag = 2 Caption = 'Skip F&orward' OnClick = SkipForwards1Click end object SkipBack1: TMenuItem Tag = 2 Caption = 'Skip B&ack' OnClick = SkipBack1Click end object N2: TMenuItem Tag = 2 Caption = '-' end object Stop1: TMenuItem Tag = 2 Caption = '&Stop' OnClick = Stop1Click end object Eject1: TMenuItem Tag = 2 Caption = '&Eject' OnClick = Eject1Click end object CloseTray1: TMenuItem Tag = 2 Caption = '&Close' OnClick = CloseTray1Click end object N1: TMenuItem Tag = 2 Caption = '-' end object Settings1: TMenuItem Caption = 'Vie&w' object ToolBarMenu: TMenuItem Caption = '&Tool Bar' Checked = True OnClick = ToolBarMenuClick end object TrackBarMenu: TMenuItem Caption = 'T&rack Bar' Checked = True OnClick = TrackBarMenuClick end object TrackInfoMenu: TMenuItem Caption = '&Status Bar' Checked = True OnClick = TrackInfoMenuClick end object N4: TMenuItem Caption = '-' end object ShowHintsMenu: TMenuItem Caption = '&Hints' Checked = True OnClick = ShowHintsMenuClick end object ShortMenu: TMenuItem Caption = 'Short &Menu' OnClick = ShortMenuClick end end object PutinTray1: TMenuItem Caption = 'Put in &Tray' OnClick = PutinTray1Click end object SelectDriveMenu: TMenuItem Caption = 'Select &Drive' Enabled = False end object N7: TMenuItem Caption = '-' end object ExitRCCD1: TMenuItem Caption = 'E&xit RCCD' OnClick = ExitRCCD1Click end object N6: TMenuItem Caption = '-' end object mnuRegister: TMenuItem Caption = 'Re&gister' OnClick = mnuRegisterClick end object Properties1: TMenuItem Caption = 'Prope&rties' OnClick = Properties1Click end end object SaveSettings: TgbSaveSettings StoreSize = False IniFileName = 'RCCD' SectionName = 'Main Form' RegistryKey = '\Software\GaJITS\' OnReadIni = SaveSettingsReadIni OnWriteIni = SaveSettingsWriteIni Left = 80 Top = 164 end object TrayIcon: TgbTrayIcon LeftButtonPopup = MediaPlayerPopup RightButtonPopup = MediaPlayerPopup Hint = 'CD Player' Icon.Data = {} Immediate = False OnDblClick = TrayIconDblClick Left = 24 Top = 164 end object App: TgbInsideApp OnActivate = AppActivate OnDeactivate = AppDeactivate OnException = AppException OnActiveFormChange = AppActiveFormChange Left = 52 Top = 164 end object gbDeviceChangeNotifier: TgbDeviceChangeNotifier OnDeviceChange = gbDeviceChangeNotifierDeviceChange Left = 80 Top = 136 end object HideWindowTimer: TTimer Enabled = False Interval = 500 OnTimer = HideWindowTimerTimer Left = 108 Top = 136 end object WSocket: TWSocket Addr = 'cddb.cddb.com' Port = '8880' Proto = 'tcp' MultiThreaded = False FlushTimeout = 10 SendFlags = wsSendNormal LingerOnOff = wsLingerOn LingerTimeout = 10 Left = 24 Top = 192 end end